|
1700
|
How do I layout expandable columns
OBJECT column,columns,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "BackColorLevelHeader", _ObjectGetProperty( g2antt , "BackColor"));
columns = _ObjectGetProperty( g2antt , "Columns");
column = _ObjectCallMethod( columns , "Add", "C0");
_ObjectSetProperty( column , "ExpandColumns", "1,2");
_ObjectSetProperty( column , "DisplayExpandButton", -1);
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
_ObjectCallMethod( columns , "Add", "C3");
column = _ObjectCallMethod( columns , "Add", "C4");
_ObjectSetProperty( column , "ExpandColumns", "5,6");
_ObjectSetProperty( column , "DisplayExpandButton", -1);
_ObjectCallMethod( columns , "Add", "C5");
column = _ObjectCallMethod( columns , "Add", "C6");
_ObjectSetProperty( column , "ExpandColumns", "6,7");
_ObjectSetProperty( column , "DisplayExpandButton", -1);
_ObjectCallMethod( columns , "Add", "C7");
_ObjectCallMethod( g2antt , "EndUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`C4`).Expanded = False");
|
|
1699
|
Is it possible to display automatically the start/end margins of the bars
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%1%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 16");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(44) = `<%=%2%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(45) = 18");
_ObjectCallMethod( chart , "ScrollTo", _ObjectGetProperty( chart , "FirstVisibleDate"),1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "ToolTip") , "Visible", 0);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `bar <b>a`");
_ObjectCallMethod( items , "AddBar", h,"Task","12/29/2000","1/5/2001");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `bar <b>b`");
_ObjectCallMethod( items , "AddBar", h,"Task","12/30/2000","1/6/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1698
|
Is it possible to assign the bar's caption from a hidden column
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%C1%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "ToolTip") , "Visible", 0);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `bar <b>a`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `bar <b>b`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1697
|
Is it possible to assign the bar's tooltip from a hidden column
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<%=%C1%>`");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "ToolTip") , "Visible", 0);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `This is a bit of text that's shown when the cursor hovers the bar on item 1.`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `This is a bit of text that's shown when the cursor hovers the bar on item 2.`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1696
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 2)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,51) = 65536");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1695
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 1)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(51) = 65536");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Default"),"Task","1/2/2001","1/5/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1694
|
What I need is bars that have a solid color, but with a black frame. How can we do that
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Add", "Frame");
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectSetProperty( bar , "Color", 65280);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(51) = 65536");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<font ;6><%=%C0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
_ObjectSetProperty( bar , "Height", 15);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Frames");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Default"),"Frame","1/2/2001","1/7/2001");
h = _ObjectCallMethod( items , "AddItem", "Inside Color");
_ObjectCallMethod( items , "AddBar", h,"Frame","1/2/2001","1/7/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 255");
h = _ObjectCallMethod( items , "AddItem", "Border Color");
_ObjectCallMethod( items , "AddBar", h,"Frame","1/2/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,51) = 33023");
h = _ObjectCallMethod( items , "AddItem", "Inside/Border Color");
_ObjectCallMethod( items , "AddBar", h,"Frame","1/2/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 16711680");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,51) = 33023");
h = _ObjectCallMethod( items , "AddItem", "Thick-Border");
_ObjectCallMethod( items , "AddBar", h,"Frame","1/2/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,42) = 4097");
h = _ObjectCallMethod( items , "AddItem", "Thick-Border + Pattern");
_ObjectCallMethod( items , "AddBar", h,"Frame","1/2/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,42) = 4098");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1693
|
How can we drag bars from one item to the other
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Members`).Def(17) = 1");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectSetProperty( chart , "AllowSelectObjects", 0);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "DrawGridLines", -1);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 4611);
_ObjectSetProperty( bar , "Height", 18);
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectSetProperty( bar , "Color", 16744448);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Member <b>1</b>");
_ObjectCallMethod( items , "AddBar", h,"Task","9/21/2006","9/23/2006","T102","<font ;6><fgcolor FFFFFF>Task <b>102</b>");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`T102`,28) = True");
h = _ObjectCallMethod( items , "AddItem", "Member <b>2</b>");
h = _ObjectCallMethod( items , "AddItem", "Member <b>3</b>");
h = _ObjectCallMethod( items , "AddItem", "Member <b>4</b>");
_ObjectCallMethod( items , "AddBar", h,"Task","9/21/2006","9/23/2006","T103","<font ;6><fgcolor FFFFFF>Task <b>103</b>");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`T103`,28) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1692
|
How can I use the exBarBackgroundExt option of the Items.ItemBar property
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 26);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Height = 22");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Border-Top");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `top[3,back=RGB(0,0,0)]`");
h = _ObjectCallMethod( items , "AddItem", "Border-Bottom");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `bottom[3,back=RGB(255,0,0)]`");
h = _ObjectCallMethod( items , "AddItem", "Border-Left");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `left[6,back=RGB(0,255,0)]`");
h = _ObjectCallMethod( items , "AddItem", "Border-Right");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `right[6,back=RGB(0,0,255)]`");
h = _ObjectCallMethod( items , "AddItem", "Border-All");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `top[3,back=RGB(0,0,0)],right[3,back=RGB(0,0,255)],bottom[3,back=RGB(255,0,0)],left[3,back=RGB(0,255,0)],client`");
h = _ObjectCallMethod( items , "AddItem", "Middle");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `none[(25%,25%,50%,50%),back=RGB(255,0,0)]`");
h = _ObjectCallMethod( items , "AddItem", "Horizontal");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `none[(0,50%-2,100%,4),back=RGB(255,0,0)]`");
h = _ObjectCallMethod( items , "AddItem", "Vertical");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `none[(50%-2,0,4,100%),back=RGB(255,0,0)]`");
h = _ObjectCallMethod( items , "AddItem", "Mixt");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `[[patterncolor=RGB(255,0,0)](none[(4,4,100%-8,100%-8),pattern=0x006,patterncolor=RGB(255,0,0),frame=RGB(255,0,0),framethick])]`");
h = _ObjectCallMethod( items , "AddItem", "Misc");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `bottom[50%,pattern=10,frame]`");
h = _ObjectCallMethod( items , "AddItem", "Complex");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,53) = `left[10%](top[90%,back=RGB(0,0,0)]),top[30%,back=RGB(254,217,102)],client[back=RGB(91,156,212)]`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1691
|
Does the title of the cell's tooltip supports HTML format
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
_ObjectSetProperty( column , "Caption", "");
_ObjectSetProperty( column , "HTMLCaption", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellToolTip(AddItem(`tooltip w/h different title`),0) = `<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the title centered with a different color.`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1690
|
How do I specify a different title for the cell's tooltip
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
_ObjectSetProperty( column , "Caption", "This is the title");
_ObjectSetProperty( column , "HTMLCaption", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellToolTip(AddItem(`tooltip w/h different title`),0) = `This is bit of text that's shown when the user hovers the cell.`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1689
|
The cell's tooltip displays the column's caption in its title. How can I get ride of that
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "tooltip w/h caption");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellToolTip(h,0) = `This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title.`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `tooltip no caption`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellToolTip(h,1) = `This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title.`");
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`C2`)");
_ObjectSetProperty( column , "HTMLCaption", _ObjectGetProperty( column , "Caption"));
_ObjectSetProperty( column , "Caption", "");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1688
|
How can I programmatically show the column's filter
// RClick event - Fired when right mouse button is clicked
FUNCTION g2anttEvents_RClick()
' Columns(c).ShowFilter("-1,-1,128,128")
_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(g2antt, "TemplatePut", c)
_ObjectCallMethod(g2antt, "TemplatePut", hit)
i = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
END
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items ");
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9472);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1687
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 2)
// ColumnClick event - Fired after the user clicks on column's header.
FUNCTION g2anttEvents_ColumnClick(OBJECT g2antt, OBJECT Column)
' Column.SortOrder = 1
_ObjectSetProperty( g2antt , "SortOnClick", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`Sort`).SortOrder = 1");
_ObjectSetProperty( g2antt , "SortOnClick", 1);
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SortOnClick", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Sort") , "Visible", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item 1 (3)`),1) = 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item 2 (1)`),1) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item 3 (2)`),1) = 2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1686
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 1)
// ColumnClick event - Fired after the user clicks on column's header.
FUNCTION g2anttEvents_ColumnClick(OBJECT g2antt, OBJECT Column)
' Column.SortOrder = 1
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "SortChildren", 0,"Sort",-1);
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SortOnClick", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Sort") , "Visible", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item 1 (3)`),1) = 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item 2 (1)`),1) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item 3 (2)`),1) = 2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1685
|
How do I get information about control's events
// Event event - Notifies the application once the control fires an event.
FUNCTION g2anttEvents_Event(OBJECT g2antt, INT EventID)
Message( _ObjectCallMethod( g2antt , "ExecuteTemplate", "EventParam(-2)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).OverlaidType = 257");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.EnableItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = -1");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = 0");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,28) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(AddItem(`Item 3`)) = 0");
h = _ObjectCallMethod( items , "AddItem", "Item 4");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.EnableItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = -1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1684
|
How can I sort by two-columns, one by date and one by time
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSort", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Index") , "FormatColumn", "1 index ``");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Date") , "SortType", 2);
column = _ObjectCallMethod( columns , "Add", "Time");
_ObjectSetProperty( column , "SortType", 4);
_ObjectSetProperty( column , "FormatColumn", "time(value)");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #1/1/2001#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = #1/1/2001 10:00:00 AM#");
h = _ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #12/31/2000#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = #1/1/2001 10:00:00 AM#");
h = _ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #1/1/2001#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = #1/1/2001 6:00:00 AM#");
h = _ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #12/31/2000#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = #1/1/2001 8:00:00 AM#");
h = _ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #1/1/2001#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = #1/1/2001 8:00:00 AM#");
h = _ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #12/31/2000#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = #1/1/2001 6:00:00 AM#");
_ObjectSetProperty( g2antt , "Layout", "multiplesort=^"C1:1 C2:1^"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1683
|
I am trying to hide the non-working dates by using the AddNonworkingDate to specify custom non-working dates while NonworkingDays property is 0, but the non-working date is still shown. What can be wrong
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "NonworkingDays", 128);
_ObjectCallMethod( chart , "AddNonworkingDate", "1/7/2008");
_ObjectCallMethod( chart , "AddNonworkingDate", "1/8/2008");
_ObjectCallMethod( chart , "AddNonworkingDate", "1/9/2008");
_ObjectCallMethod( chart , "AddNonworkingDate", "1/10/2008");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1682
|
How can I display the task's duration, in days, hours and minutes
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 36);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Duration");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 513");
_ObjectSetProperty( column , "FormatColumn", "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " +
"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 148");
_ObjectSetProperty( chart , "FirstVisibleDate", "4/6/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "ResizeUnitScale", 1048576);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "T1"),"Task","4/6/2009 2:30:00 AM","4/6/2009 12:35:00 PM");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "T2"),"Task","4/6/2009 9:00:00 AM","4/6/2009 10:10:00 AM");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1681
|
Does your control support working half-hour/minutes/seconds
OBJECT bars,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 36);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Working");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 258");
_ObjectSetProperty( column , "FormatColumn", "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " +
"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "4/6/2009");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 148");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "ResizeUnitScale", 1048576);
_ObjectSetProperty( chart , "ResizeUnitCount", 15);
_ObjectSetProperty( chart , "NonworkingHours", 15728767);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
bars = _ObjectGetProperty( chart , "Bars");
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bars)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Item(`Task`).Def(20) = True");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "UnitWidth", 26);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "T1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `(weekday(value) in (1,2,3,4,5) and (timeF(value)<^"09:30^" or timeF(value)>=^"17:30^")) or (weekday(value) in (0,6))`");
_ObjectCallMethod( items , "AddBar", h,"Task","4/6/2009 10:00:00 AM","4/6/2009 12:30:00 PM");
h = _ObjectCallMethod( items , "AddItem", "T2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `(weekday(value) in (1,2,3,4,5) and (timeF(value)<^"08:00^" or timeF(value)>=^"16:00^")) or (weekday(value) in (0,6))`");
_ObjectCallMethod( items , "AddBar", h,"Task","4/6/2009 9:30:00 AM","4/6/2009 10:45:00 AM");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1680
|
How can I programmatically move a bar to a specified date-time
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Original");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","key");
h = _ObjectCallMethod( items , "AddItem", "Moved");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","key");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
duration = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`key`,513)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/5/2001","key");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`key`,513) = duration");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1679
|
How can I programmatically move a bar, with a specified ammount
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Original");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","key");
h = _ObjectCallMethod( items , "AddItem", "Moved");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","key");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`key`,514) = 3");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1678
|
How can I programmatically move a bar to a specified date-time (auto-adjust spans over a non-working period)
OBJECT bars,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
bars = _ObjectGetProperty( chart , "Bars");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bars)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Item(`Task`).Def(20) = True");
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Original");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","key");
h = _ObjectCallMethod( items , "AddItem", "Moved");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","key");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
workingCount = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`key`,258)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/5/2001","key");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`key`,258) = workingCount");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1677
|
How can I programmatically move a bar, with a specified ammount (auto-adjust spans over a non-working period)
OBJECT bars,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
bars = _ObjectGetProperty( chart , "Bars");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bars)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Item(`Task`).Def(20) = True");
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Original");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","key");
h = _ObjectCallMethod( items , "AddItem", "Moved");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","key");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`key`,514) = 3");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1676
|
How can I show a secondary curve, line in the control's histogram
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( g2antt , "AntiAliasing", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/9/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramView", 1136);
_ObjectSetProperty( chart , "HistogramHeight", 128);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 0);
_ObjectSetProperty( bar , "HistogramItems", 8);
_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = `<font ;3><%d%>`");
_ObjectSetProperty( chart , "UnitWidth", 9);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "HistogramPattern", 1024);
_ObjectSetProperty( bar , "HistogramColor", 255);
_ObjectSetProperty( bar , "HistogramType", 0);
_ObjectSetProperty( bar , "HistogramItems", 8);
_ObjectSetProperty( bar , "HistogramBorderSize", 1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(h) = 0");
_ObjectCallMethod( items , "AddBar", h,"Summary","1/1/2005","12/31/2005","1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`1`,21) = `(value mod 31) array (1,1,1,2,1,2.5,3,4,5,4,3,2,1,2,2,3,4.5,4,5,6,7,6,1,2,3,1,1,1,2,3,2,2)`");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","6/10/2005","7/16/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `weekday(value) in (0,6) ? 0.25 : 2`");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","6/18/2005","7/21/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `weekday(value) = 1 ? 2.5 : .5`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1675
|
How can I add an owner-draw bar
// AfterDrawPart event - Occurs right after drawing the part of the control.
FUNCTION g2anttEvents_AfterDrawPart(OBJECT g2antt, INT Part, INT hDC, INT X, INT Y, INT Width, INT Height)
Message( "AfterDrawPart" );
Message( Part );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.CellCaption(Me.DrawPartItem,0)") );
Message( _ObjectGetProperty( g2antt , "DrawPartKey") );
END
// BeforeDrawPart event - Occurs just before drawing a part of the control.
FUNCTION g2anttEvents_BeforeDrawPart(OBJECT g2antt, INT Part, INT hDC, INT X, INT Y, INT Width, INT Height, INT Cancel)
Cancel = -1;
Message( "BeforeDrawPart" );
Message( Part );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.CellCaption(Me.DrawPartItem,0)") );
Message( _ObjectGetProperty( g2antt , "DrawPartKey") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "OwnerDraw");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Draw-Item-Bar-1"),"OwnerDraw","1/2/2001","1/5/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Draw-Item-Bar-2"),"OwnerDraw","1/6/2001","1/9/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1674
|
Is it possible to show a status left or right to the bar (method 2, exBarFrameColor, EBN)
OBJECT appearance,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAChABP0IQAAYAQGKIaBoAKBQAGaAoDDYMQyQwAAxDOKsEwsACEIrjKCRShyCYZRrGUQyAKESRAGyTJBlKKodgOLYYSrFcgSIAsEhqGASRZGUBIJ" +
"DEMI4AJPIwxNIDfyNGKWI6gOQKIoSCYlU7IED0fQNGxVF6XaYqYAIRDINQlVzXcQzPYEbRxCKLKppWqIfpuSIBgI=");
_ObjectCallMethod( appearance , "Add", 1,"CP:2 -8 -1 0 0");
_ObjectCallMethod( appearance , "Add", 3,"CP:2 0 -1 0 0");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Red-Status-Outside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,51) = 16777471");
h = _ObjectCallMethod( items , "AddItem", "Blue-Status-Outside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/6/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,51) = 33488896");
h = _ObjectCallMethod( items , "AddItem", "Red-Status-Inside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,51) = 50331903");
h = _ObjectCallMethod( items , "AddItem", "Blue-Status-Inside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/6/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,51) = 67043328");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1673
|
Is it possible to show a status left or right to the bar (method 1, exBarBackgroundExt)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Red-Left-Status-Inside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `left[6,back=RGB(255,0,0)]`");
h = _ObjectCallMethod( items , "AddItem", "Blue-Left-Status-Inside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/6/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `left[6,back=RGB(0,0,255)]`");
h = _ObjectCallMethod( items , "AddItem", "Red-Right-Status-Inside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `right[6,back=RGB(255,0,0)]`");
h = _ObjectCallMethod( items , "AddItem", "Blue-Right-Status-Inside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/6/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `right[6,back=RGB(0,0,255)]`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1672
|
How can I use the ItemBar(exBarBackgroundExt) property for a bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 31);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineColor", 14737632);
_ObjectSetProperty( g2antt , "BackColorLevelHeader", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).GridLineColor = Me.GridLineColor");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).GridLineColor = Me.GridLineColor");
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Height = 21");
_ObjectSetProperty( chart , "DrawGridLines", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Normal");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
h = _ObjectCallMethod( items , "AddItem", "Red-Frame-Inside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `[frame=RGB(255,0,0),framethick]`");
h = _ObjectCallMethod( items , "AddItem", "LR-Margins");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]`");
h = _ObjectCallMethod( items , "AddItem", "LR-Margins (front)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/7/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,54) = 2");
h = _ObjectCallMethod( items , "AddItem", "LR-Margins (back)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/8/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,54) = 3");
h = _ObjectCallMethod( items , "AddItem", "TB-Margins");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/9/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `top[4,back=RGB(255,0,0)],bottom[4,back=RGB(0,255,0)]`");
h = _ObjectCallMethod( items , "AddItem", "TB-Margins");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/10/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `top[2,back=RGB(255,0,0)],bottom[2,back=RGB(0,255,0)]`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,54) = 2");
h = _ObjectCallMethod( items , "AddItem", "Caption(back)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/11/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `client(bottom[14,text=`<sha ;;0><font ;8>background`,align=0x11])`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,54) = 2");
h = _ObjectCallMethod( items , "AddItem", "Pattern-Outside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/12/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `bottom[10%,pattern=7,frame]`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,54) = 2");
h = _ObjectCallMethod( items , "AddItem", "Pattern-Inside");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/13/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `bottom[7,pattern=3,frame]`");
h = _ObjectCallMethod( items , "AddItem", "Pattern-Inside-Caption");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/12/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client(left[75%,text=`<fgcolor FFFFFF>75%`,align=0x11,pattern=0x001,frame=RGB(255,0,0)])`");
h = _ObjectCallMethod( items , "AddItem", "Complex(back)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/11/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,54) = 3");
h = _ObjectCallMethod( items , "AddItem", "Complex(inside)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/12/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,53) = `top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1671
|
How can display seconds
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/17/2008");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 16777216);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Alignment = 17");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).FormatLabel = `(0:=sec(dvalue)) mod 10 ? 0=: : '<c><font ;6>sec<br><b>' + 0=:`");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/17/2008 12:00:02 AM","1/17/2008 12:00:08 AM");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/17/2008 12:00:05 AM","1/17/2008 12:00:15 AM");
|
|
1670
|
How can I check if an item contains a bar
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION g2anttEvents_SelectionChanged()
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
Message( "Count of A: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(FocusItem,`A`,256)") );
Message( "Count of B: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(FocusItem,`B`,256)") );
Message( "Count of C: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(FocusItem,`C`,256)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(4) = 18");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","1/2/2001","1/4/2001","A","A");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","1/2/2001","1/4/2001","B","B");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","1/2/2001","1/4/2001","C","C");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1669
|
How can I connect to a DBF file
OBJECT g2antt,rs;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1668
|
How do I get the caption with no HTML format
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "This is a bit of <b>HTML-formatted</b> text");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod( items , "AddItem", _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellCaption(h,0)"));
|
|
1667
|
How can I change the bar's color based on its length/duration
OBJECT chart,column,columns,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Duration");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 513");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/6/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%1 >= 4");
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "ApplyToBars", "Task");
_ObjectSetProperty( conditionalformat , "BarColor", 255);
_ObjectSetProperty( conditionalformat , "ForeColor", _ObjectGetProperty( conditionalformat , "BarColor"));
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/10/2005","6/13/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/11/2005","6/16/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/12/2005","6/15/2005","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1666
|
Is it possible to colorize the bars based on its starting/ending date
OBJECT chart,column,columns,conditionalformat,g2antt,insidezoomformat,insidezooms,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "OnResizeControl", 129);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "5/31/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
_ObjectSetProperty( insidezoomformat , "PatternChart", 6);
_ObjectSetProperty( insidezoomformat , "PatternColorChart", 255);
_ObjectSetProperty( insidezoomformat , "ForeColor", _ObjectGetProperty( insidezoomformat , "PatternColorChart"));
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
_ObjectSetProperty( insidezooms , "DefaultWidth", 18);
_ObjectSetProperty( _ObjectCallMethod( insidezooms , "Add", "6/10/2005") , "AllowInsideFormat", 0);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%1 <= #6/10/2005#");
_ObjectSetProperty( conditionalformat , "ApplyToBars", "Task");
_ObjectSetProperty( conditionalformat , "BarColor", 255);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/10/2005","6/14/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/11/2005","6/15/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/12/2005","6/16/2005","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1665
|
How can I change the bar's color based on values on the columns
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod( items , "AddBar", Item,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,2)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,4)"));
END
OBJECT chart,conditionalformat,conditionalformats,g2antt,rs;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/3/1994");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(2).Def(18) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(4).Def(18) = 2");
conditionalformats = _ObjectGetProperty( g2antt , "ConditionalFormats");
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "1");
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "BackColor", 16448250);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%1 = 5");
_ObjectSetProperty( conditionalformat , "ApplyToBars", "Task");
_ObjectSetProperty( conditionalformat , "BarColor", 255);
_ObjectSetProperty( conditionalformat , "ForeColor", 255);
_ObjectSetProperty( conditionalformat , "BarOverviewColor", 255);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%1 = 3");
_ObjectSetProperty( conditionalformat , "ApplyToBars", "Task");
_ObjectSetProperty( conditionalformat , "BarColor", 65280);
_ObjectSetProperty( conditionalformat , "ForeColor", 65280);
_ObjectSetProperty( conditionalformat , "BarOverviewColor", 65280);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1664
|
How can I display / specify a fixed percent for the task in the histogram, no matter how long the task is
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 32);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "UnitWidth", 32);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramView", 112);
_ObjectSetProperty( chart , "HistogramHeight", 64);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 1);
_ObjectSetProperty( bar , "ShowHistogramValues", 1);
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","TaskFixed");
_ObjectSetProperty( bar , "HistogramType", 513);
_ObjectSetProperty( bar , "ShowHistogramValues", 1);
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","TaskMultiply");
_ObjectSetProperty( bar , "HistogramType", 1025);
_ObjectSetProperty( bar , "ShowHistogramValues", 1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Allocation");
_ObjectCallMethod( items , "AddBar", h,"Task","6/21/2005","6/23/2005","A","Effort/Length");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,21) = 0.25");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,5) = 18");
_ObjectCallMethod( items , "AddBar", h,"TaskFixed","6/24/2005","6/26/2005","B","Effort");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,21) = 0.25");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,5) = 18");
_ObjectCallMethod( items , "AddBar", h,"TaskMultiply","6/27/2005","6/29/2005","C","Effort*Length");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`C`,21) = 0.25");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`C`,5) = 18");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1663
|
Does your control supports scrolling by touching the screen
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod( items , "AddBar", Item,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,2)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,4)"));
END
OBJECT chart,g2antt,rs;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/3/1994");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(2).Def(18) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(4).Def(18) = 2");
_ObjectSetProperty( g2antt , "ContinueColumnScroll", -1);
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "AllowCreateBar", 0);
_ObjectSetProperty( g2antt , "AutoDrag", 4112);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1662
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (zoom-onfly)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "AllowZoomOnFly", 24);
_ObjectSetProperty( chart , "ResizeUnitScale", 65536);
_ObjectSetProperty( chart , "ResizeUnitCount", 4);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<font ;5><b><%h%><br><%AM/PM%></b></font><||>4<||>65536`");
_ObjectSetProperty( chart , "ZoomOnFlyCaption", "<br><c><b><font ;12><%=%C0%>");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/7/2001","1/10/2001","T1","T1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/11/2001","1/14/2001","T3","T3");
h = _ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod( items , "AddBar", h,"","1/15/2001","1/15/2001","","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1661
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (inside-zoom)
OBJECT chart,g2antt,insidezoomformat,insidezooms;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
_ObjectSetProperty( insidezoomformat , "InsideLabel", "<%hh%>");
_ObjectSetProperty( insidezoomformat , "InsideUnit", 65536);
_ObjectSetProperty( insidezoomformat , "InsideCount", 8);
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectCallMethod( insidezooms , "Add", "1/4/2008");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1660
|
How can I export the control's content to a PDF document (method 1)
OBJECT chart,column,columns,createobject("exontrol.print"),g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( columns , "Add", "End");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 2");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "ShowEmptyBars", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2009");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2009","1/7/2009");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/4/2009","1/9/2009");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", g2antt);
_ObjectCallMethod( createobject("exontrol.print") , "CopyTo", "c:/temp/xtest.pdf");
Message( "Look for C:\Temp\xtest.pdf file." );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1659
|
How can I export the control's content to a PDF document (method 2)
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( columns , "Add", "End");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 2");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "ShowEmptyBars", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2009");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2009","1/7/2009");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/4/2009","1/9/2009");
var_CopyTo = _ObjectCallMethod(g2antt, "ExecuteTemplate", "CopyTo(`c:/temp/xtest.pdf`)");
Message( "Look for C:\Temp\xtest.pdf file." );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1658
|
Today date is shown, if we use the Column.FormatColumn and Editor.Option(exDateAllowNullDate) properties. What can be done
OBJECT column,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( column , "FormatColumn", "len(value) ? ( (longdate(date(value)) left 3) + ' ' + day(date(value)) + '/' + month(date(value)) + '/' + (year(date(value)) ri" +
"ght 2) ) : '' )");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 7);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(14) = True");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "5/12/2012");
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod( items , "AddItem", "5/14/2012");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1657
|
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,2) = CellState(Item,0)");
END
OBJECT column,g2antt,items,var_conditionalformat;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectSetProperty( g2antt , "SelBackMode", 1);
var_ConditionalFormat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%2 != 0");
var_conditionalformat = var_ConditionalFormat;
_ObjectSetProperty( var_conditionalformat , "Bold", -1);
_ObjectSetProperty( var_conditionalformat , "ForeColor", 255);
_ObjectSetProperty( var_conditionalformat , "ApplyTo", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 16);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Information");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Hidden") , "Visible", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(``),1) = `This is a bit of text associated`");
h = _ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `This is a bit of text associated`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(``),1) = `This is a bit of text associated`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1656
|
How can I hide the items/grid section of the control
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "OnResizeControl", 129);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/9/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramView", 112);
_ObjectSetProperty( chart , "HistogramHeight", 128);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/10/2005","6/14/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/11/2005","6/15/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/12/2005","6/16/2005","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1655
|
How can I draw an extra line which could indicate deadline for my tasks
OBJECT appearance,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 24);
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAChABLMIQAAYAQGKIaBoAKBQAGaAoDDQOQ4QwAAxjAKUEwsACEIrjKCYVgOHYYRrIIEvZAAMIlSbCMoxcAsSQSf6YJBmKL4fiWMobRCMQyiLLMd" +
"wiGoYJ4hGgKChqI43RZNErURRkEwCgIA=");
_ObjectCallMethod( appearance , "Add", 1,"CP:2 0 -4 0 4");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Default");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,51) = 16777471");
_ObjectCallMethod( items , "AddBar", h,"Task","1/9/2001","1/14/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,51) = 33488896");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1654
|
How can I mark/highlight a zone in the control's histogram
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/9/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramView", 112);
_ObjectSetProperty( chart , "HistogramHeight", 128);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 0);
_ObjectSetProperty( bar , "HistogramItems", 12);
_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/10/2005","6/14/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/11/2005","6/15/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/12/2005","6/16/2005","");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Chart") , "MarkTimeZone", "zone","6/13/2005","6/14/2005",15790320,";;;;histogram;1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1653
|
How can I get the min/max values from the histogram
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
OBJECT chart;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
Message( "Value" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.HistogramValue(DateFromPoint(-1,-1))") );
Message( "MIN" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.HistogramValue(`min`)") );
Message( "MAX" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.HistogramValue(`max`)") );
END
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/9/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramView", 112);
_ObjectSetProperty( chart , "HistogramHeight", 128);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 0);
_ObjectSetProperty( bar , "HistogramItems", 12);
_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/10/2005","6/14/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/11/2005","6/15/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task"),"Task","6/12/2005","6/16/2005","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1652
|
How can I assign different efforts(expression) to the same bar
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/9/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramView", 112);
_ObjectSetProperty( chart , "HistogramHeight", 128);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 0);
_ObjectSetProperty( bar , "HistogramItems", 12);
_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = `<font ;3><%d%>`");
_ObjectSetProperty( chart , "UnitWidth", 9);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","6/10/2005","6/14/2005","");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `weekday(value) in (0,6) ? 0.25 : 2`");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","6/18/2005","6/21/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `weekday(value) = 1 ? 2 : 1`");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","6/27/2005","7/9/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `month (value) = 7 ? 1 : 0`");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","6/27/2005","7/5/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `(month(value)=month(value+1)) ? 1 : 0`");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","6/22/2005","6/26/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `int(value-start) ? 1 : 2`");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","7/10/2005","7/14/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `(int(value-start) and int(end-value) != 0 ) ? 1 : 2`");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","7/15/2005","7/22/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `(int(value-start)+1) mod 2 ? 1 : 0`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1651
|
How can I prevent showing the representation of the bar on the week days, nonworking part
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/9/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramView", 112);
_ObjectSetProperty( chart , "HistogramHeight", 128);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 0);
_ObjectSetProperty( bar , "HistogramItems", 12);
_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","6/10/2005","6/21/2005","");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `weekday(value) in (0,6) ? 0 : 2`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1650
|
How do I programatically focus a cell
// FocusChanged event - Occurs when a cell gets the focus.
FUNCTION g2anttEvents_FocusChanged()
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellBackColor(FocusItem,Me.FocusColumnIndex) = 255");
END
OBJECT columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelForeColor", _ObjectGetProperty( g2antt , "ForeColor"));
_ObjectSetProperty( g2antt , "SelBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Column1");
_ObjectCallMethod( columns , "Add", "Column2");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Cell 1.1`),1) = `Cell 1.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Cell 2.1`),1) = `Cell 2.2`");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(1)) = True");
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1649
|
How do I programatically focus a cell (excrd)
// FocusChanged event - Occurs when a cell gets the focus.
FUNCTION g2anttEvents_FocusChanged()
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellBackColor(FocusItem,Me.FocusColumnIndex) = 255");
END
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelForeColor", _ObjectGetProperty( g2antt , "ForeColor"));
_ObjectSetProperty( g2antt , "SelBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 36);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Column1") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Column2") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Column3") , "Visible", 0);
column = _ObjectCallMethod( columns , "Add", "FormatLevel");
_ObjectSetProperty( column , "FormatLevel", "(0/1),2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(32) = FormatLevel");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Cell 1.1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Cell 1.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Cell 1.3`");
h = _ObjectCallMethod( items , "AddItem", "Cell 2.1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Cell 2.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Cell 2.3`");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(1)) = True");
_ObjectSetProperty( g2antt , "FocusColumnIndex", 2);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1648
|
How can I get task's user data ( exBarData ) when user double clicks the bar
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
FUNCTION g2anttEvents_DblClick(OBJECT g2antt, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(g2antt, "TemplatePut", c)
_ObjectCallMethod(g2antt, "TemplatePut", hit)
item = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
key = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,item,key")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", item)
_ObjectCallMethod(g2antt, "TemplatePut", key)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemBar(item,key,17)") );
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,17) = `this is a bit of extra data associated with task 1`");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,17) = `this is a bit of extra data associated with task 2`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1647
|
How do I get arranged the levels to display, weeks, days and so on
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "UnitWidth", 24);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstWeekDay", 1);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectSetProperty( level , "Label", "<b><Font Tahoma;7><%m3%>, <%yyyy%></b><b>, <Font Tahoma;7>Wk <%ww%>");
_ObjectSetProperty( level , "Unit", 256);
_ObjectSetProperty( level , "DrawGridLines", -1);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectSetProperty( level , "Label", "<Font Tahoma;7><%d%>");
_ObjectSetProperty( level , "Unit", 4096);
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1646
|
How can I add a task and a milestone to the same item
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Milestone","1/2/2001","1/2/2001","MKey");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/7/2001");
|
|
1645
|
How can I change the visual appearance of the buttons on the control's overview part
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxf" +
"IMIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4p" +
"SrAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DB" +
"thsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCA" +
"HQDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAl" +
"EkZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQ" +
"oWC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzC" +
"SSQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGA" +
"UgUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCo" +
"SoihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCB" +
"cGUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEB" +
"AAgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8" +
"U48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEH" +
"HKBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgD" +
"gwjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUA" +
"cMIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHi" +
"JDAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdw" +
"lA4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+" +
"KoAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQha" +
"jUEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(16777216) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(0) = ``");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "OverviewSelBackColor", 33554176);
|
|
1644
|
Is there a way to show the Start and End dates in mm-dd-yyyy format
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/25/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `K1`");
_ObjectSetProperty( column , "FormatColumn", "(0 array (0:=(shortdateF(value) split `/`))) + `-` + (1 array (=:0) ) + `-` + (2 array (=:0) )");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `K1`");
_ObjectSetProperty( column , "FormatColumn", "shortdateF(value) replace `/` with `-`");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", ),"Task","1/1/2001","1/5/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", ),"Task","1/2/2001","1/6/2001","K1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1643
|
Is there a way to show the Start and End dates in dd-mm-yyyy format
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/25/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `K1`");
_ObjectSetProperty( column , "FormatColumn", "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `K1`");
_ObjectSetProperty( column , "FormatColumn", "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", ),"Task","1/1/2001","1/5/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", ),"Task","1/2/2001","1/6/2001","K1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1642
|
If we have bars with dark color, we use white font/color. But if the bars are too small for the caption, you cant read it. What can we do
OBJECT bar,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectSetProperty( bar , "Height", 17);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Progress`)");
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectSetProperty( bar , "Height", 17);
_ObjectSetProperty( bar , "Shape", 1);
_ObjectSetProperty( bar , "Color", 16711680);
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Add", "Task%Progress");
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectSetProperty( bar , "Height", 17);
_ObjectSetProperty( bar , "Shortcut", "Percent");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 21);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 4112616");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,3) = `<fgcolor=FFFFFF><sha 0;;0>Pause`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/9/2001","1/12/2001","white");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`white`,33) = 4112616");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`white`,3) = `<fgcolor=FFFFFF>Pause`");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/4/2001","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 2017557");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,3) = `<fgcolor=FFFFFF><sha 0;;0>Production`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/10/2001","1/11/2001","white");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`white`,33) = 2017557");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`white`,3) = `<fgcolor=FFFFFF>Production`");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Percent","1/3/2001","1/4/2001","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,12) = 0.5");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 2017557");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,3) = `<fgcolor=FFFFFF><sha 0;;0>Pausing`");
_ObjectCallMethod( items , "AddBar", h,"Percent","1/10/2001","1/11/2001","white");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`white`,12) = 0.5");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`white`,33) = 2017557");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`white`,3) = `<fgcolor=FFFFFF>Pausing`");
h = _ObjectCallMethod( items , "AddItem", "Task 4");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/4/2001","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 8421504");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,3) = `<fgcolor=FFFFFF><sha 0;;0>Planned downtime`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/10/2001","1/11/2001","white");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`white`,33) = 8421504");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`white`,3) = `<fgcolor=FFFFFF>Planned downtime`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1641
|
How do I programmatically exclude items from the filter
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9472);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( items , "AddItem", "Item 4");
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 752);
_ObjectSetProperty( column , "Filter", "Item 1|Item 4");
_ObjectCallMethod( g2antt , "ApplyFilter");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1640
|
How do I show in histogram, more values for a single task
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
FUNCTION g2anttEvents_BeforeExpandItem(OBJECT g2antt, INT Item, VARIANT Cancel)
Cancel = -1;
END
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", -1);
_ObjectSetProperty( g2antt , "ExpandOnDblClick", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 167);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 128");
_ObjectSetProperty( chart , "HistogramView", 1040);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramType", 256);
_ObjectSetProperty( bar , "HistogramItems", 6);
_ObjectSetProperty( bar , "HistogramPattern", 1);
_ObjectSetProperty( bar , "HistogramItems", -40000);
_ObjectSetProperty( bar , "HistogramCriticalValue", 100000);
_ObjectSetProperty( bar , "HistogramRulerLinesColor", 8421504);
_ObjectSetProperty( bar , "HistogramCumulativeColors", 3);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Costs") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks") , "Visible", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Estimated");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Task 1`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/1/2001","1/10/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = 8000");
hR = _ObjectCallMethod( items , "InsertItem", h,"","Actual");
_ObjectCallMethod( items , "AddBar", hR,"Task","1/1/2001","1/10/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hR)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(hR,``,21) = 9000");
_ObjectCallMethod( items , "GroupBars", h,"",-1,hR,"",-1);
_ObjectCallMethod( items , "GroupBars", h,"",0,hR,"",0);
hR = _ObjectCallMethod( items , "InsertItem", h,"","Cost");
_ObjectCallMethod( items , "AddBar", hR,"Task","1/1/2001","1/10/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(hR,``,21) = 200");
_ObjectCallMethod( items , "GroupBars", h,"",-1,hR,"",-1);
_ObjectCallMethod( items , "GroupBars", h,"",0,hR,"",0);
h = _ObjectCallMethod( items , "AddItem", "Estimated");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Task 2`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/9/2001","1/15/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = 7000");
hR = _ObjectCallMethod( items , "InsertItem", h,"","Actual");
_ObjectCallMethod( items , "AddBar", hR,"Task","1/9/2001","1/15/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hR)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(hR,``,21) = 8000");
_ObjectCallMethod( items , "GroupBars", h,"",-1,hR,"",-1);
_ObjectCallMethod( items , "GroupBars", h,"",0,hR,"",0);
hR = _ObjectCallMethod( items , "InsertItem", h,"","Cost");
_ObjectCallMethod( items , "AddBar", hR,"Task","1/9/2001","1/15/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(hR,``,21) = 150");
_ObjectCallMethod( items , "GroupBars", h,"",-1,hR,"",-1);
_ObjectCallMethod( items , "GroupBars", h,"",0,hR,"",0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1639
|
How can I align the caption of the bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/25/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K","exBarHAlignCaption = 0");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 0");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K","exBarHAlignCaption = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 1");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K","exBarHAlignCaption = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 2");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K","Clip 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 3");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K","Clip 4");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 4");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K","Clip 5");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 5");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K","Outside Left 16");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 16");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K","Outside Right 18");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 18");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K","Outside Center 17");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,4) = 17");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1638
|
How can I change the drop down filter background color
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(26) = 16777215");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 1315);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1637
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 2)
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 36);
columns = _ObjectGetProperty( g2antt , "Columns");
column = _ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 18);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( columns , "Add", "C2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 18);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Column1") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Column2") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Column3") , "Visible", 0);
column = _ObjectCallMethod( columns , "Add", "FormatLevel");
_ObjectSetProperty( column , "FormatLevel", "18;^"Info^"[a=17]/(2/3,4)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(32) = `2/3,4`");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/22/2014");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Cell 1.1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Cell 1.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Cell 1.3`");
_ObjectCallMethod( items , "AddBar", h,"Task","6/23/2014","6/25/2014");
h = _ObjectCallMethod( items , "AddItem", "Cell 2.1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Cell 2.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Cell 2.3`");
_ObjectCallMethod( items , "AddBar", h,"Task","6/26/2014","6/28/2014");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1636
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 1)
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 36);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Column1") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Column2") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Column3") , "Visible", 0);
column = _ObjectCallMethod( columns , "Add", "FormatLevel");
_ObjectSetProperty( column , "FormatLevel", "(0/1),2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(32) = FormatLevel");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/22/2014");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Cell 1.1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Cell 1.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Cell 1.3`");
_ObjectCallMethod( items , "AddBar", h,"Task","6/23/2014","6/25/2014");
h = _ObjectCallMethod( items , "AddItem", "Cell 2.1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Cell 2.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Cell 2.3`");
_ObjectCallMethod( items , "AddBar", h,"Task","6/26/2014","6/28/2014");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1635
|
How do I display the histogram for filtered items only
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 32);
_ObjectSetProperty( chart , "HistogramView", 128);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "Filter", "Item 1");
_ObjectSetProperty( column , "FilterType", 240);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
_ObjectCallMethod( g2antt , "ApplyFilter");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1634
|
How can I use no scroll bars for touch-screens
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod( items , "AddBar", Item,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,2)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,4)"));
END
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( g2antt , "ShowToolTip", "<font ;6><sha ;;0><off -4>Tip</off></sha></font> If the cursor hovers bars, click and wait for a second to start scrolling.");
END
OBJECT chart,g2antt,rs;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "8/3/1994");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
_ObjectSetProperty( g2antt , "AutoDrag", 16);
_ObjectSetProperty( g2antt , "ScrollWidth", 4);
_ObjectSetProperty( g2antt , "ScrollHeight", 4);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(384) = 12632256");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(392) = 12632256");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(404) = 14737632");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(388) = 8421504");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(276) = 14737632");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(264) = 12632256");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(260) = 8421504");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(256) = 12632256");
_ObjectSetProperty( g2antt , "ScrollButtonWidth", 0);
_ObjectSetProperty( g2antt , "ScrollButtonHeight", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1633
|
How can I display values in the histogram legend
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Effort");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 21");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 128);
_ObjectSetProperty( chart , "HistogramView", 112);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 0);
_ObjectSetProperty( bar , "HistogramCriticalValue", 3);
_ObjectSetProperty( bar , "HistogramItems", -7);
_ObjectSetProperty( bar , "HistogramGridLinesColor", 12632256);
_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/23/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 4");
h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/24/2005","6/26/2005");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 3");
h1 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/27/2005","6/29/2005");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 2");
h1 = _ObjectCallMethod( items , "AddItem", "Task 4");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/30/2005","7/2/2005");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1632
|
I am using AllowGroupBy property and calling the Column.SortOrder property groups by that column. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's GroupBy bar
OBJECT columns,g2antt;
g2antt = ObjectByName("AN1") ;
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "First");
_ObjectCallMethod( columns , "Add", "Second");
_ObjectCallMethod( columns , "Add", "Third");
_ObjectSetProperty( g2antt , "SortBarVisible", -1);
_ObjectSetProperty( g2antt , "SingleSort", 0);
_ObjectSetProperty( g2antt , "AllowGroupBy", -1);
_ObjectSetProperty( g2antt , "Layout", "SingleSort = ^"C0:1^";MultipleSort = ^"C1:2 C2:1^"");
|
|
1631
|
Calling programatically the Column.SortOrder property adds the column to the sort bar. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's Sort bar
OBJECT columns,g2antt;
g2antt = ObjectByName("AN1") ;
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "First");
_ObjectCallMethod( columns , "Add", "Second");
_ObjectCallMethod( columns , "Add", "Third");
_ObjectSetProperty( g2antt , "SortBarVisible", -1);
_ObjectSetProperty( g2antt , "SingleSort", 0);
_ObjectSetProperty( g2antt , "Layout", "SingleSort = ^"C0:1^"");
|
|
1630
|
How can I specify different working parts for different items
OBJECT bar,chart,column,columns,g2antt,insidezoomformat,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Working");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 258");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `A`");
_ObjectSetProperty( column , "FormatColumn", "(0:=round(value*24)) != 0 ? =:0 : ''");
column = _ObjectCallMethod( columns , "Add", "NonWorking");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 259");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `A`");
_ObjectSetProperty( column , "FormatColumn", "(0:=round(value*24)) != 0 ? =:0 : ''");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 78");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "DrawLevelSeparator", 0);
_ObjectSetProperty( chart , "LevelCount", 3);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).DrawGridLines = False");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>");
_ObjectSetProperty( chart , "MarkSelectDateColor", 2147481838);
insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
_ObjectSetProperty( insidezoomformat , "OwnerLabel", "<%mmm%> <%d%>");
_ObjectSetProperty( insidezoomformat , "BackColor", 16775406);
_ObjectSetProperty( insidezoomformat , "BackColorChart", _ObjectGetProperty( insidezoomformat , "BackColor"));
_ObjectSetProperty( insidezoomformat , "InsideCount", 4);
_ObjectSetProperty( insidezoomformat , "InsideLabel", "<b><%hh%></b>");
_ObjectCallMethod( _ObjectGetProperty( chart , "InsideZooms") , "Add", "6/22/2005");
_ObjectSetProperty( chart , "DrawGridLines", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Split`).Color = 255");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "Pattern", 6);
_ObjectSetProperty( bar , "Shortcut", "Task");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/22/2005 8:00:00 AM","6/28/2005","A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`A`,20) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h1,False) = `weekday(value) in (1,2)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h1,True) = `weekday(value) in (1,2) or (hour(value)<8 or hour(value)>=16 )`");
h2 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h2,"Task","6/22/2005 4:00:00 AM","6/29/2005 12:00:00 PM","A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h2,`A`,20) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h2,False) = `weekday(value) in (1,2)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h2,True) = `weekday(value) in (1, 2) or (hour(value)<4 or hour(value)>=12 )`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1629
|
How can I define the default bar's foreground color
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Height", 15);
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(8) = 16777215");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/6/2001","K1","bar A");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/6/2001","K2","bar B");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/6/2001","K3","bar C");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1628
|
How can I print the selected items only
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod( items , "AddBar", Item,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,2)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,4)"));
END
OBJECT createobject("exontrol.print"),g2antt,items,rs;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "8/4/1994");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(0)) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(4)) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "Print = Selection");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", g2antt);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
1627
|
How can I sort the columns to be displayed on the columns floating bar
OBJECT columns,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "City") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "End") , "Visible", 0);
_ObjectSetProperty( g2antt , "ColumnsFloatBarVisible", -1);
_ObjectSetProperty( g2antt , "ColumnsFloatBarSortOrder", 1);
|
|
1626
|
How can I add a vertical padding for my cells
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Padding");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(16) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(48) = 6");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(49) = 6");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(50) = 6");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(51) = 6");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "padding");
_ObjectCallMethod( items , "AddItem", "padding");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1625
|
Trying to fill the second columns. How can I do that
OBJECT columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod( columns , "Add", "Column 2");
_ObjectCallMethod( columns , "Add", "Column 3");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "SubItem 1.1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem 1.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem 1.3`");
h = _ObjectCallMethod( items , "AddItem", "SubItem 2.1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem 2.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem 2.3`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1624
|
How can I specify a different background color for item, in chart or list panels
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hC)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 255");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(hC) = 65280");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
1623
|
Is it possible to specify a status part for each bar
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 64");
_ObjectSetProperty( g2antt , "Debug", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAChABL8IQAAYAQGKIaBwAKBQAGaAoDDQNgyQwAAxwdBMKgBBCLIxhEYobgmGIaRjHcQjEKoSxHEqIRpGCRoJiqLIZAJIEZRZAcaQvGSQYRASCRN" +
"DEOA0TDAY4jPD4aQiGIbRjjeL5YjiNo2UxTNRQCEB");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","B1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/17/2001","B2");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,33) = 255");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,51) = 16777216");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1622
|
How can I change the the focus rectangle
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"C:\Program Files\Exontrol\ExG2antt\sample\EBN\hoverinsert.ebn");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(19) = 16777216");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Check");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(48) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( g2antt , "SelForeColor", _ObjectGetProperty( g2antt , "ForeColor"));
_ObjectSetProperty( g2antt , "SelBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectSetProperty( g2antt , "ShowFocusRect", -1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1621
|
Can each cell have their own dropdown lists that contain "different list item values" for each cell, not predefined for the entire column
OBJECT editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column/Cell-Same") , "Editor");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectCallMethod( editor , "AddItem", 0,"Zero");
_ObjectCallMethod( editor , "AddItem", 1,"One");
_ObjectCallMethod( editor , "AddItem", 2,"Two");
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column/Cell-Different") , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", );
h = _ObjectCallMethod( items , "AddItem", 0);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectCallMethod( editor , "AddItem", 3,"Three");
_ObjectCallMethod( editor , "AddItem", 4,"Four");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = 3");
_ObjectCallMethod( items , "AddItem", );
h = _ObjectCallMethod( items , "AddItem", 0);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 6);
_ObjectCallMethod( editor , "AddItem", 1,"Single");
_ObjectCallMethod( editor , "AddItem", 2,"Double");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = 3");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1620
|
How can I specify just a few fonts in a FontType editor
OBJECT editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Fonts") , "Editor");
_ObjectSetProperty( editor , "EditType", 10);
_ObjectCallMethod( editor , "ClearItems");
_ObjectCallMethod( editor , "AddItem", 0,"Calibri");
_ObjectCallMethod( editor , "AddItem", 1,"Arial");
_ObjectCallMethod( editor , "AddItem", 2,"Rockwell");
_ObjectCallMethod( editor , "AddItem", 3,"Tahoma");
_ObjectCallMethod( editor , "SortItems", -1);
_ObjectSetProperty( editor , "DropDownRows", 4);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Tahoma");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1619
|
How can I show only the working-hours in chart and histogram panels
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 64);
_ObjectSetProperty( chart , "HistogramView", 112);
_ObjectSetProperty( chart , "LevelCount", 3);
_ObjectSetProperty( chart , "NonworkingHours", 16253183);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramType", 1);
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "UnitWidth", 4);
_ObjectSetProperty( chart , "ResizeUnitScale", _ObjectGetProperty( chart , "UnitScale"));
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task A");
_ObjectCallMethod( items , "AddBar", h,"Task","6/23/2005 11:00:00 AM","6/23/2005 12:00:00 PM");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `0.0416666`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,20) = True");
h = _ObjectCallMethod( items , "AddItem", "Task B");
_ObjectCallMethod( items , "AddBar", h,"Task","6/23/2005 12:00:00 PM","6/23/2005 4:00:00 PM");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = `0.0416666`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,20) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1618
|
How do you embed HTML options into the anchor click string
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION g2anttEvents_AnchorClick(OBJECT g2antt, STRING AnchorID, STRING Options)
Message( AnchorID );
Message( Options );
END
OBJECT columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", columns)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Add(`Car`).Def(17) = 1");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "<a mazda_1;options for 1>Mazda <b>1</b></a>");
_ObjectCallMethod( items , "AddItem", "<a mazda_2;options for 2>Mazda <b>2</b></a>");
_ObjectCallMethod( items , "AddItem", "<a mazda_3;options for 3a>Mazda <b>3.a</b></a>");
_ObjectCallMethod( items , "AddItem", "<a mazda_3;options for 3b>Mazda <b>3.b</b></a>");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1617
|
How do I add a checkbox column (method 2)
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,ColIndex,Item")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", ColIndex)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
Message( "CheckBox Changed:" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.CellState(Item,ColIndex)") );
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Check`).Def(0) = True");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Check 1`),0) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Check 2`),0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Check 3`),0) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Check 4`),0) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1616
|
How do I add a checkbox column (method 1)
// Change event - Occurs when the user changes the cell's content.
FUNCTION g2anttEvents_Change(OBJECT g2antt, INT Item, INT ColIndex, VARIANT NewValue)
Message( "CheckBox Changed:" );
Message( NewValue );
END
OBJECT column,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Check");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(17) = 1");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1615
|
How do I change the progress bar's appearance
OBJECT appearance,g2antt,var_editor;
g2antt = ObjectByName("AN1") ;
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( appearance , "Add", 2,"c:\exontrol\images\pushed.ebn");
var_Editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Progress") , "Editor");
var_editor = var_Editor;
_ObjectSetProperty( var_editor , "EditType", 13);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim varObj")
_ObjectCallMethod(g2antt, "TemplatePut", var_editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "varObj.Option(11) = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "varObj.Option(13) = 33554432");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddItem", 33);
|
|
1614
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78e" +
"gBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRx" +
"LC8Mw3BDvYDkOAABAIgI=");
_ObjectSetProperty( g2antt , "SelBackColor", 33554430);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
_ObjectSetProperty( g2antt , "SelBackColor", 16777216);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem(`red`)) = 255");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem(`blue`)) = 16711680");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem(`green`)) = 65280");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1613
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelBackMode", 1);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem(`red`)) = 255");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem(`blue`)) = 16711680");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem(`green`)) = 65280");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1612
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "SelForeColor", _ObjectGetProperty( g2antt , "ForeColor"));
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectSetProperty( g2antt , "ShowFocusRect", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem(`red`)) = 255");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem(`blue`)) = 16711680");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem(`green`)) = 65280");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1611
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
FUNCTION g2anttEvents_BeforeExpandItem(OBJECT g2antt, INT Item, VARIANT Cancel)
Message( "BeforeExpandItem" );
Message( Item );
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "InsertItem", Item,"","new child");
END
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
columns = _ObjectGetProperty( g2antt , "Columns");
column = _ObjectCallMethod( columns , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 4);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHasChildren(InsertItem(,,`Group 1`)) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHasChildren(InsertItem(,,`Group 2`)) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1610
|
How can identify when I clicked Hour, Month, or Year of the time-scale overview
// OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
FUNCTION g2anttEvents_OverviewZoom()
Message( "UnitScale: " );
Message( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "UnitScale") );
END
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
|
|
1609
|
How can define a minimum and maximum in a column SpinType
OBJECT columns,editor,g2antt;
g2antt = ObjectByName("AN1") ;
columns = _ObjectGetProperty( g2antt , "Columns");
editor = _ObjectGetProperty( _ObjectCallMethod( columns , "Add", "SpinType between 5 and 150") , "Editor");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectSetProperty( editor , "Numeric", -1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(41) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(43) = 5");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(44) = 150");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddItem", 50);
|
|
1608
|
How I can change the title of the time-scale overview. (Example: Month by 'Mes', Day by 'Dia')
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "OverviewVisible", 2);
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
_ObjectSetProperty( chart , "OverviewZoomCaption", "Aņo|||Mes|||Dia|||");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(1) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(2) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(17) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(256) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(1048576) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(16777216) = ``");
|
|
1607
|
Is it possible to set a fixed wide for the Items List Arrea, so that when changing the Form.width, the Items List Arrea be constant and therefor changing the Chart Area-wide
OBJECT g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
|
|
1606
|
How can I clear the colors for all bars at once
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 64");
_ObjectSetProperty( g2antt , "Debug", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,33) = 65280");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","B1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/17/2001","B2");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,33) = 0");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1605
|
How can I change the colors for all bars at once
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 64");
_ObjectSetProperty( g2antt , "Debug", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","B1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/17/2001","B2");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1604
|
How can I show my custom bars in the histogram (method 3)
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2000");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 64);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramType", 256);
_ObjectSetProperty( bar , "HistogramItems", 6);
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramCumulativeOriginalColorBars", 1);
_ObjectSetProperty( bar , "OverlaidType", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
h = _ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/12/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1603
|
How can I show my custom bars in the histogram (method 2)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 32);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
h = _ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/12/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1602
|
How can I show my custom bars in the histogram (method 1)
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 32);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","MyBar");
_ObjectSetProperty( bar , "HistogramPattern", 5);
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "HistogramColor", _ObjectGetProperty( bar , "Color"));
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"MyBar","1/8/2001","1/12/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1601
|
Do you have any Fit-To-Page options when printing the control
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod( items , "AddBar", Item,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,2)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,4)"));
END
OBJECT createobject("exontrol.print"),g2antt,rs;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "8/4/1994");
_ObjectCallMethod( g2antt , "EndUpdate");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "FitToPage = On");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", g2antt);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|